-- card: 3109 from stack: in -- bmap block id: 0 -- flags: 0000 -- background id: 2657 -- name: about ----- HyperTalk script ----- on opencard lock screen global currfld put "Whatthisis" into currfld repeat with i = 1 to 3 hide cd fld i end repeat show cd fld "Whatthisis" unlock screen with dissolve end opencard -- part 1 (field) -- low flags: 81 -- high flags: 0000 -- rect: left=4 top=30 right=294 bottom=495 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: whatthisis -- part 6 (button) -- low flags: 00 -- high flags: A004 -- rect: left=22 top=317 right=338 bottom=108 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: What This Is ----- HyperTalk script ----- on mouseUp lock screen global currfld hide cd fld currfld put "whatthisis" into currfld show card field "whatthisis" unlock screen with dissolve end mouseUp -- part 7 (button) -- low flags: 00 -- high flags: A004 -- rect: left=142 top=317 right=338 bottom=228 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Who Did This ----- HyperTalk script ----- on mouseUp lock screen global currfld hide cd fld currfld show cd fld "Whodidthis" put "Whodidthis" into currfld unlock screen with dissolve end mouseUp -- part 8 (button) -- low flags: 00 -- high flags: A004 -- rect: left=271 top=317 right=338 bottom=357 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Terms of Use ----- HyperTalk script ----- on mouseUp lock screen global currfld hide cd fld currfld show cd fld "TermsofUse" put "termsofuse" into currfld unlock screen with dissolve end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: A004 -- rect: left=383 top=317 right=338 bottom=469 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Let Me Try! ----- HyperTalk script ----- on mouseUp global currfld visual scroll right to black visual wipe left to card hide cd fld currfld go to card "work" end mouseUp -- part 10 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=470 top=300 right=343 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 1011 / 1011 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Go HOme ----- HyperTalk script ----- on mouseUp go home end mouseUp -- part 13 (field) -- low flags: 81 -- high flags: 0000 -- rect: left=4 top=30 right=294 bottom=495 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: TermsOfUse -- part 14 (field) -- low flags: 81 -- high flags: 0000 -- rect: left=4 top=30 right=294 bottom=495 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: whodidthis -- part 16 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=39 top=268 right=289 bottom=65 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: me ----- HyperTalk script ----- on mouseUp global currfld if currfld <> "whatthisis" then exit mouseup else show cd fld 4 end if end mouseUp -- part 17 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=4 top=138 right=237 bottom=219 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 4 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: degreescript ----- HyperTalk script ----- on mouseup hide me end mouseup -- part contents for card part 1 ----- text ----- This stack contains a couple handlers and functions which do some trigonometry functions dealing with angles and their radius's length. Using the formula: radius = x + y you are able to find the radius (or distance of the line) from 1 point to another. Using the formula: ∂= ArcTan (y/x) you are able to find the angle measurement between the two points. Because, however, Hypercard deals with angle measurements in Radians, it was necessary to write a function to convert radian measurements into degrees. This, too, is included and located in the stack's script, or click ME to see it. -- part contents for card part 14 ----- text ----- This stack (and its contents) was done by Jason A. Haslup, one of your regular stackheads who thought this up on his way home from school. Ideas for use include: Trig. teaching, games where you need to know angles and distances. I'm sure there are others, but I'll leave them up to you to find out. Please send me your comments about this stack at: Jason Haslup on all Phoenix Macintosh BBS's GEnie: J.HASLUP CIS: 71470,40 or: Jason Haslup P.O. Box 1963 Cave Creek, AZ 85331 -- part contents for card part 13 ----- text ----- Terms of Use: Actually, NONE! This stack is FREE! (wow). Of course, if you really, really love it, you can send me something, but I don't require it. If you could, you may send me a note commenting about the stack, I would like that. Other than that, use if freely in your stacks! I would REALLY like it if you included my name in that stack, too. If you modify it, send the new one to me, I know there is at least 1 problem with it (I'll let you find it). Thanks! -- part contents for card part 17 ----- text ----- function todegree what put what * 360 into x put x/(2*pi) into thenew return thenew end todegree what Click me to continue